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Minor Revision (January 1963) 

This publication is a reprint of Form C24- 1464-0 incorporating changes 
released in Technical Newsletter N24-0039. Although the format has been 
changed to conform to the Systems Reference Library, the original publica- 
tion and applicable newsletter are not obsoleted. Principal changes in this 
edition are: 

Page 6 — General Description 

Paragraph regarding type of card codes. 

Page 16 — Program Halts 

Paragraph regarding program halt with storage address 3547 
displayed. 

Page 19 — Converting No-Op Instruction 

Change originally covered by Technical Newsletter N24- 
0039. 

Page 19 — Coding the Patch Subroutines 

Change originally covered by Technical Newsletter N24- 
0039. 

Page 48 — Figure 24. Example of FARGO patching and linkage using 
SPS. Originally covered by Technical Newsletter N24-0039. 

Page 49 — Figure 25. Method of identifying types of cards when a digit 
is punched in one column and an X in another. 
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Fargo 



FARGO, Fourteen-O-One Automatic Report Generat- 
ing Operation, is a report generator that requires no 
expert knowledge ojF programming techniques. It is 
easy to learn and apply. Developed for the ibm 1401 
Data Processing System, FARGO may be quickly 
adapted to many types of listed reports or group- 
printed reports now prepared with unit-record equip- 
ment on blank paper or- on preprinted forms. 

In addition to providing the program for processing 
the input detail-data cards, FARGO provides for 
printing one title line, including page number, on each 
page of the report. It also provides for printing two 
lines of field headings used to designate the various 
columns of the report. The printing of this information, 
normally required when preparing reports on blank 
paper, is controlled by the carriage tape. One advan- 
tage of FARGO is that any number of different reports 
may be prepared in a continuous mode, provided the 
reports are prepared on blank paper and that the 
carriage-tape specifications are standardized for all 
the reports. 

Requirements of the report, such as title and field 
headings, detail and/or total printing, carriage spacing, 
skipping, ejecting, etc., are first laid out on an ibm 
1403 Printer Spacing Chart. The report specifications 
are then recorded on specially-designed FARGO con- 



trol card coding-sheets (Phases 1, 2, 3 and 4). Control 
cards for each of the four phases are then punched on 
standard 5081-type cards. These are inserted behind 
their respective FARGO condensed-program decks, 
and all precede the detail data cards to be processed. 
The file is then loaded into the 1402 file feed. The 
operation is started by pressing the load key. The 
1401 loads each phase of the FARGO program, and 
generates the program steps from the control cards 
that follow each phase. 

In approximately 20 seconds, report printing is 
started. It continues without interruption until the 
report is finished. This procedure is graphically illus- 
trated in Figure 1. If several reports are to be run 
consecutively, a separator card containing a lozenge 
(□ , 12-4-8) punch in card column one is placed be- 
hind the last detail data card for each report. This 
branches the generated program into the last card 
routine, ejects to the first printing line of the next 
form, and immediately begins reading-in the next pro- 
gram deck. 

FARGO is designed primarily for ibm 1401 card sys- 
tems having a minimum of 4,000 positions of core 
storage, and parallels the 407 approach to report prep- 
aration. It is a load-and-go system with no intermediate 
operations such as symbolic assembly. 



General Description 

Following is a list of operations that can be performed 
under FARGO control. 

Print one full line (132 positions) of Report Heading 
on the first line of each page of the report (carriage- 
tape channel-1, including page numbers. 

Skip to carriage-tape channel-2 and print a maxi- 
mum of two full lines of columnar- or field-headings 
on each page of the report. 

Skip to the body line of the report (carriage-tape 
channel-3). 

List or group-print the body of the report. 

Control on a maximum of four fields anywhere in 
the detailed data cards regardless of length. 

Group-indicate a maximum of four fields on the first 
line of each minor control group. 

Distinguish a maximum of 10 different types of de- 
tail cards and print results in the appropriate columns 
of the report. Each code used to identify a given type 
of card may be punched in the same column of the 
detail card, or a separate column may be used to 
identify each type up to a maximum of 10. If more than 
one card-column must be tested to identify a given 
type of card (multiple column type), a patching rou- 
tine is generally required. Special provisions have been 
made within the FARGO program for accomplishing 
this type of patching. (See Patching.) However, two 
columns may be tested without patching if, as is fre- 
quently the case, a type of card is identified by a digit 
(1-9) in one column and a zone (usually an X) in an- 
other column. Example: 3 in column 6, X in column 
80. (See Figure 25.) 

Add, subtract, multiply, and divide detail data or 
totals. 

Accumulate and print totals (with or without sum- 
mary punching) for each control level, plus final totals 
at the end of the report. Minor totals are rolled into 
intermediate totals, intermediate totals into major, etc. 



Space before or after printing, or skip to predeter- 
mined total-lines (carriage-tape channels 4 to 9). 

Crossfoot detail data or totals, print the results on 
desired total levels, and print progressive totals where- 
ever desired. 

Print totals horizontally or vertically for each total 
level on as many lines as desired. 

Print multiple lines from one card (MLP). 

Print reports on preprinted forms, including inverted 
forms with MLP printing. In such cases, specifications 
for report and field headings are not required. 

Card count by types of cards and print card count 
totals on desired total levels. 

Overflow or eject from form to form. 

Print any number of different types of reports 
consecutively, provided that reports are prepared on 
continuous blank paper and that the carriage-tape 
specifications are standardized for all the reports. 



Report Specifications 

In developing report specifications, the first step is to 
lay out the report on an ibm 1403 Printer Spacing 
Chart (step 1 in Figure 1). This establishes the posi- 
tions at which the various data will be printed and 
indicates the spacing or skipping bfetween lines of 
printing. This step is always required for new reports 
but may not be necessary for existing reports, that is, 
reports that have been prepared previously with the 
407. In such cases, the same spacing chart used in 
laying out the report for the 407 can be used with the 
FARGO system. If minor modifications are made in 
the conversion of the report from the 407 to the 1401 
because of the greater printing capacity, a new layout 
using the 1403 printer spacing chart is necessary. Once 
the report layout is completed and the operations to 
be performed are clearly indicated, the next step (step 
2 in Figure 1) is to record the specifications on FARGO 
coding sheets. 
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Figure 1. FARGO— Basic Steps 



Coding Sheets 

Coding sheets (Figure 2) are designed to facilitate the 
recording of specifications in the FARGO language, 
following a few simple rules. The statements used to 
supply the information are based on the logic of the 
407. Thus, any person with sufficient knowledge to 
develop ibm 407 specifications for a given report can 
learn and apply the FARGO language with very little 
training. 

The areas on the coding sheets labeled Report, Pro- 
grammed By, Page Nos., and Date are for the con- 
venience of the programmer, but are not punched in 
the FARGO control cards. If the programmer assigns 
a number to the program for identification purposes, 
the number is entered in the area labeled Program 
Identification, 73-76. This number is later punched in 
each FARGO control card. 

Each line of the coding sheets is identified by a pre- 
printed sequence number in columns 77-80. These se- 
quence numbers should be punched in the control 
cards. When the control cards for the four phases are 
properly inserted behind their respective FARGO 
condensed-program decks, the sequence numbers must 
be in ascending order as shown here. 

No. of Sequence 

Phase Cards Cards Numbers 

1 Condensed Program Deck 50 0001-0050 

1 Control Cards variable 1000- Ixxx 

2 Condensed Program Deck 32 2000-2031 

2 Control Cards variable 3010-3xxx 

3 Condensed Program Deck 33 4000-4032 

3 Control Cards variable 5010-5xxx 

4 Condensed Program Deck 12 6000-6011 
4 Control Cards variable 7001-70xx 

The coding sheets for the four phases are described 

in the order in which they are normally filled out. 

FORM NO. X24-6556 

Phase 4 — Report-Heading Control Cards (two cards 
maximum). 

Field-Headings Control Cards (four cards 
maximum). 

Phase 1 — Master-Report Control Card (one card maxi- 
mum). 

Control-Break Control Cards (four cards 
maximum). 

FORM NO. x24-6557 

Phase 1 — Constants Control Cards (50 cards maxi- 
mum). 

FORM NO. x24-6559 

Phase 3 — Detail Control Cards (variable) 

FORM NO. x24-6558 

Phase 2 — Total Control Cards (variable) 



Phase 4 (Form No. X24-6556) 



Report-Heading Confrol Cards 

Two report-heading control cards (sequence numbers 
7001 and 7002) provide a maximum of 132 positions of 
report-heading information that may be printed at the 
top of each page of the report (carriage-tape chan- 
nel-1). Report-heading specifications are entered in col- 
umns 1-68 as follows: 



Card 
Columns 
1 

2 

3-68 



Control Data 
H - Report-Heading Control Card. 

1 - First card. 

2 - Second card. 

Enter report-heading information (66 char- 
acters maximum for each card). Card 1 prints 
in positions 1-66, Card 2 prints in positions 
67-132. 

If a report heading is required, two cards always must 
be punched, and HI control card must precede H2 con- 
trol card. Depending on the length of the report heading 
and the print positions selected, either HI or H2 control 
card may be blank in columns 3-68. The report heading 
may include the word PAGE anj^where on the line if 
page numbering is specified. 

If a report heading is not required (preprinted forms), 
these two control cards are omitted. 



Field'Head'ings Control Cards 

Four field-headings control cards (sequence numbers 
7011-7014) provide two full 132 positions for field- 
heading information that may be printed on each page 
of the report following the report heading (carriage- 
tape channel-2). Field-headings specifications are en- 
tered in columns 1-68 as follows: 



Card 
Columns 
1 
.2 



Control Data 
F - Field-Heading Control Card. 

1 - First Card. 

2 - Second Card. 

3 - Third Card. 

4 - Fourth Card. 

3-68 Enter field-heading information (66 charac- 

ters maximum for each card). Cards 1 and 2 
print first line of field headings: 

Card 1 - print positions 1-66. 

Card 2 - print positions 67-132. 
Cards 3 and 4 print second line of field 
headings: 

Card 3 - print positions 1-66. 

Card 4 - print positions 67-132. 

rule: If field headings are required, these four cards must enter 
the machine in ascending sequence. If not required (pre- 
printed forms), they are omitted. 

rule: Whether or not report and/or field headings are speci- 
fied, a blank card punched with the # (3-8) symbol in 
column 1 must be the last card in the combined program 
deck. In other words, it always precedes the first detail 
data card. This signals the end of FARGO program 
loading and the beginning of detail card processing. 
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Figure 2. FARGO Coding Sheets 



Phase 1 (Form No. X24-6556) 

Master-Report Control Card 

This card (sequence number 1000), always punched 
M in column 1, specifies: 

1. type of report (list or group-print). 

2. page overflow, if desired. 

3. page numbering, if desired. 

4. positions selected to print the page number any- 
where on the report-heading line. 

5. data to be group-indicated on the first line of each 
minor control group of a listed report only. 

The control data is entered in the various columns 
of the coding sheet as shown here. 



Card 
Columns 

1 

2 

3 



5-7 (from) 
8-10 (to) 



11 



12-14 (from) 
15-17 (to) 



18-20 (from) 
21-23 (to) 

24-36 
37-49 
50-62 



Control Data 

M - Master-Report Control Card. 

L - List; Blank - Group Print. 

O (alpha) - Page overflow to carriage-tape 

channel- 1. 

Blank - No page overflow. 

P - Page numbering if desired. 
Blank - No page numbering. 

IBM 1403 print positions selected for printing 
page number on report-heading line. (From 
indicates the left-hand or high-order print 
position while to indicates the right-hand or 
units print position.) 

First field to be group indicated. 

M - Move 

Z - Move and suppress zeros. 

Location of data in detail card to be group- 
indicated. (From indicates the left-hand or 
high-order card column, while to indicates 
the right-hand or units card column.) 

IBM 1403 print positions selected for printing 
first group-indicated field. 

Second field to be group-indicated. Same for- 
mat as Field 1. 

Third field to be group-indicated. Same for- 
mat as Field 1. 



Control-Break Control Cards 

These cards (sequence numbers 1001-1004) always 
punched B in column 1, specify the four control levels 
and define the card columns in which the control fields 
are punched in the detail cards. For a simple listed 
report with no controls, these cards are omitted. When 
controls are required, the specifications are recorded 
in columns 1-8 as follows. 



Card 






Columns 


Code 


Control Data 


1 


B 


Control-break control card. 


2 


1 


First-level control (minor). 




2 


Second-level control (intermediate), 




3 


Third-level control (major). 




4 


Fourth-level control. 


3-5 (from) 




Location of control field. 


6-8 (to) 







Fourth field to be group-indicated, 
format as Field 1. 



Same 



Split-Control Fields 

Normally, information in a given level control, iden- 
tified by a single card-field heading, is punched in 
consecutive columns of the card. In some cases, the in- 
formation may be punched in more than one card field 
but still in consecutive columns of the card. The va- 
rious card fields involved may be treated as one-level 
control merely by specifying the level desired (1, 2, 3, 
or 4), and the high-order position of the left-most field 
(from) and the low-order position of the right-most 
field f^oj. 

When a given level control (for example, minor) is 
split, that is, represented by two card fields that are 
not adjacent, one field is specified as minor (code 1) 
and the other field as intermediate (code 2). Because 
an intermediate control-break forces a minor total- 
level, all the total operations are specified in Tl (minor 
level) control cards in Phase 2. A single T2 (intermedi- 
ate level) control card, coded SPS in columns 52-54, 
follows. However, no total operations are specified on 
the intermediate level. For each extra B-control card 
required in Phase 1, one total level is sacrificed in 
Phase 2. 



JO 



Phase 1 (Form No. X24-6557) 



Phase 3 (Form No. X24-6559) 



Constants Control Cards 

These cards, punched C or S in column 1, define the 
length of each constant word, the label used in the 
program when referring to the constant, and the char- 
acters that compose the constant word, with or without 
a word mark. Constant areas of core storage used to 
accumulate totals must be given a label. A maximum 
of 50 constants control cards may be used. Any com- 
bination of characters except PGE may be used as a 
label. The reason PGE cannot be used is that a 4- 
position constant area is reserved by the program to 
permit addressing the page number counter. If page 
numbering is not required, the counter may be used 
for other purposes in the program, in which case the 
counter must be referred to by the PGE label. 

Because the number of constants control cards may 
vary from report to report, complete sequence num- 
bers are not preprinted on the form. Only the hun- 
dreds position (column 78) need be entered, using 
for the first 9 lines, then I's, 2's, etc., as required to* 
establish sequence. If more than one sheet is needed, 
skip the first line (sequence no. 1010) on all overflow 
sheets and continue numbering with the second line 
(1x20). The same numbering scheme applies to se- 
quence numbers for Total and Detail Control Cards 
recorded on other forms. 

Specifications for constants are recorded in columns 
1-72 as follows. 



Card 
Columns 
1 

2-3 

4-6 

7-72 



Control Data 
C - Constant with a word mark. 
S - Special constant without a word mark. 
Number of positions in the constant word, 
including blanks. 

Label assigned to identify the constant word 
when referring to it in the program. 
Composition of the constant word (66 char- 
acters maximum). 
Blank positions are considered characters. 



Detail Control Cards 

These cards, always punched D in column 1, specify 
the various operations to be performed for each type 
of detail card as follows. 

1. Recognize type of card upon which operations spe- 
cified in the same card are to be performed. 

2. Move digits or zones from a single column of the 
detail card. 

3. Transfer constant words to print/punch areas. 

4. Transfer data from detail card to print/punch areas. 

5. Perform arithmetic operations on detail-card data. 

6. Print multiple lines from a single card, 

7. After printing a detail line, skip to a carriage-tape 
channel, or space 1, 2, or 3 lines. 

Detail-control-card specifications are recorded in 
columns 1 to 72 as follows. 



Card 
Columns 

1 

2-6 



Control Data 
D - Detail Control Card. 
If only one type of detail card, leave columns 
2-6 blank. If more than one type (maximum 
10), enter information in columns 2-6 as 
specified in the following rule. 



For operations that are to be performed on all detail 
cards regardless of type, leave column 2 blank and enter 
ALL in columns 3-5. On the last ALL control card, also 
enter an asterisk (*) (11-4-8) in column 2. ALL control 
cards must precede all other control cards punched D in 
column 1. 

For operations that are to be performed on specific 
types of detail cards, enter in column 2 the type code, in 
columns 3-5 the column in the detail card that contains 
the type code, and in column 6 C for a character test or 
Z for a zone test. The C and Z codes in column 6 con- 
trol the method to be used for determining the type of 
card indicated in column 2. 

Applications of this rule are illustrated in the fol- 
lowing examples. 



11 



Control Card 

Columns 
1 2 345 6 
D ALL ) 
D ALL ) 
D ALL ) 
D ALL ) 
D * ALL ) 

D - 080 C 



D - 080 Z 



D & 080 C 



D & 080 Z 



D 6 080 C 



D 6 080 Z 



D Z 080 C 



D Z 080 Z 



D 080 C 



D 080 Z 



Card 
Columns 

7-13 



Result 

Operations specified in these control cards 
are performed on all cards regardless of type. 

Last ALL control card. 

Character test. Operations specified in this 
control card are performed on cards con- 
taining only an X (11-punch) in column 80. 

Zone test. Operations specified in this con- 
trol card are performed on cards containing 
an X in column 80. This includes characters 
in the 11-zone (/ to R). 

Character test. Operations specified in this 
control card are performed on cards con- 
taining only a 12-punch in column 80. 

Zone test. Operations specified in this control 
card are performed on cards containing a 
12-punch in column 80. This includes char- 
acters in the 12-zone (A to I). 

Character test. Operations specified in this 
control card are performed on cards con- 
taining a 6-punch in column 80. 

No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. For this type of test, any digit from 
1 through 9 can be used in column 2 of the 
control card. 

Character test. Operations specified in this 
control card are performed on cards con- 
taining the letter Z (0-9) in column 80. 

Zero-Zone test. Operations specified in this 
control card are performed on cards con- 
taining a zero-zone punch. This includes 
special character (/) and letters S to Z. For 
this type of test, any of the characters men- 
tioned can be used in column 2 of the con- 
trol card. 

Blank-column test. Operations specified in 
this control card are performed on cards that 
are blank in column 80. 

No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. This test can be used to differentiate 
between an X80 or NX80 condition. 

Control Data 



Special 4- or 7-position instructions coded in 
actual IBM 1401 machine language, to be 
executed for specific types of cards, can be 
inserted in these columns. Instructions can 
also be used to branch to patching subrou- 
tines written in actual machine language. 
The specific patch point in the program must 
be determined by the programmer. Instruc- 
tions for inserting patching subroutines are 
given under Poic/img. 



Card 
Columns 

15-17 (from) 
18-20 (to) 



21 



22-24 

25-27 (from) 
28-30 (to) 

31-33 (from) 
34-36 (to) 

37 



Control Data 

Enter the detail card column that contains 
the digit or zone to be moved. 

Enter the card column to which the digit or 
zone is to be moved. 

Control-card columns 14 through 20 are used 
primarily to move credit X-punches from 
some position of the data card to the units 
position of an amount field that is to be ac- 
cumulated or edited. If the position from 
which the X was moved must be cleared, 
another control card may be used to move 
a blank zone into the position from which 
the X was moved. 

E - Edit. 

L - Load edit control word. 

M - Move constant data. 

Z - Move and suppress zeros. 

D - Move digit. 

Y - Move zone. 

Enter the label assigned to the constant to 
be transferred to the print or punch areas. 

Print positions selected to print the constant 
data. 



Summary-card columns 
the constant data. 



selected to punch 



E - Edit detail data. 

M - Move detail data. 

Z - Move and suppress zeros from detail 

data. 
D - Move digit. 
Y - Move zone. 

Location of field to be transferred. 
***note: To conserve on 1401 core storage, 
subsequent references to the same field in 
the same card types may be made by in- 
serting asterisks in columns 38-40. This also 
applies to columns 57-59. 

Print positions selected to print detail data. 



Summary-card columns selected to punch 
detail data. 

A - Add. 

S - Subtract. 

@ - Multiply (4-8 punch). 

% - Divide (0-4-8 punch). 

? - Zero and Add (12-0 punch). 

! - Zero and Subtract (11-0 punch). 

D - Move digit. 

Y - Move zone. 

M - Move. 

Z - Move and suppress zeros. 

57-59 ( * * *f rom ) Location of field upon which operations 
60-62 (to) coded in column 56 are to be performed. 



38-40 (***from) 
41-43 (to) 



44-46 (from) 
47-49 (to) 

50-52 (from) 
53-55 (to) 

56 
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D 
Y 



Move digit. 
Move zone. 



63-65 



66-68 



Label assigned to constant upon which 
operations coded in column 56 are to be 
performed. 

Label of core-storage positions to be used as 
accumulator, multiplier-product, or quotient- 
dividend-remainder. 
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70-71 

72 



Card 

Columns Control Data 

69 P - Print. Primarily used for MLP printing. 

A control card is required for each MLP line 
to be printed from the same type of card. 
Coding in column 69 is required for all MLP 
lines except the last. Printing the last line of 
an MLP card is automatic. All lines printed 
from an MLP card are single-spaced. 

SP - Space after printing a detail line. 
SK - Skip after printing a detail line. 

1-3 - Single-, double-, or triple-space after 
printing. 

4-9 - Skip to corresponding carriage tape 
channels. 

In a listed report, skipping or spacing indi- 
cated in columns 70-72 takes place after 
printing of the detail line for' the particular 
type of card specified in column 2. 

In a group-printed report, skipping or spacing 
indicated in columns 70-72 causes no car- 
riage operation. In such cases, skipping and 
spacing is controlled with T (Total) control 
cards entered in Phase 2. 

rule: When several control cards are entered for the same 
type of detail card, a skip or space instruction must be 
entered in the last control card of each type. 

RULE: For printing and punching the same detail data, two 
separate control cards are required: one to move data 
to print positions, the other to move data to punch po- 
sitions. This rule must be observed when entering data 
in control card columns 22-36 and 38-55. 



Phase 2 (Form No. X24-6558) 



Total Control Cards 

These cards, always punched T in column 1, specify 
the various operations to be performed for each class 
of total or each total within the same class. Operations 
include: 

1. Skip to a carriage tape channel, space before 
and/or after total printing, or eject from form to 
form. 

2. Add one total-level accumulator to a higher-level 
accumulator. Subtract one total-level accumulator 
from a higher-level accumulator. Multiply or di- 
vide one total by another on the same level. 

3. Crossfoot totals on any total level desired. 

4. Load or move constant data to the printer output 
area. 

5. Move, move and suppress zeros, or edit accumu- 
lated totals to the print or punch areas. 

6. Move digits or zones from a single storage position. 
For example, remove or add a sign to the units 
position of a total.. 

7. Clear accumulators. 

8. Print constants on total levels to identify totals. 

9. Print totals on total lines. 



10. Print multiple lines of information read from a 
single card in Phase 3. 

11. Punch summary cards. 

Several totals within the same class, designated by 
field headings, may be printed horizontally on the 
same line, each under its appropriate column of the 
report. Or, they may be identified by constants and 
printed vertically on separate lines in the same col- 
umn of the report. Examples: 



Horizontal Method 



Gross 

Earnings 

150.00 



Withholding 

Tax 

27.00 



F.I.G.A. 
5.44 



Other 

Deductions 

10.00 



Net 

Pay 

107.56 



Vertical Method 



Gross Earnings 
Less WHTax 

F.I.G.A. 

Other 

Net Pay 



150.00 

27.00 

5.44 

10.00 

107.56* 



Similarly, different classes of totals may be printed 
horizontally under designated report columns or ver- 
tically in the same report column. 

Total-control-card specifications are recorded in 
columns 1 to 56 as follows. 
Card 
Columns Control Data 

1 T - Total control card. 

2 1 - Minor-total level. 
Intermediate-total level. 
Major-total level. 
Fourth-total level. 
Fifth- (final) total level. (Occurs on last 

card runout with Sense Switch A 
turned ON.) 
3-4 SP - Space before total printing. 

SK - Skip before total printing. 

5 Enter 1-3 to space number of times desig- 
nated. 

Enter 4-9 to skip to corresponding carriage 

tape channels. 

note: Because normal single spacing is 
automatic, leave columns 3-5 blank 
if normal spacing is desired. 

6 A - Add. 

S - Subtract. 

@ - Multiply (4-8 punch). 

Divide (0-4-8 punch). 

Move. 



% 
M 



7-9 (from) Label of accumulator read out of. 

10-12 (to) Label of accumulator read into. 

13 L - Load edit control word. 

M - Move constant data. 
Z - Move and suppress zeros. 

14-16 Label assigned to constant being moved or 

loaded. 

17-19 (from) Print positions selected to print constant 

20-22 (to) data. 

23 E - Edit total or constant data. 

M - Move total or constant data. 
Z - Move and suppress zeros from total or 
constant. 
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Card 
Columns 

24-26 

27-29 (from) 
30-32 (to) 



33-35 (from) 
36-38 (to) 



Control Data 



Card 
Columns 



Control Data 



Label assigned to accumulator or constant. 54 

Print positions selected to print total or con- 
stant data addressed by the label coded in 
columns 24-26 of the same control card. 

Summary-card columns selected to punch 
total or constant data addressed by the label 
coded in columns 24-26 of the same control noi 
card. 



rule: For printing and punching from the same accumulator, 
two separate control cards are required. One moves data 
to print positions, and the other moves data to punch 
positions. 

39 D - Move digit (only) portion of a charac- 

ter from one card column to another 
in punch area. 
Y - Move zone (only). 



40-42 



43-45 



46 



47-49 



Summary-card column from which digit or 
zone is to be moved. 

Summary-card column to which digit or zone 
is to be moved. 

S - Clear accumulator by subtracting it 
from itself. 

Label assigned to accumulator to be cleared. 



note: When both printing and punching from the same ac- 
cumulator, clear accumulator on the second control card, 
after information has been transferred to the print and 
punch areas. 



50 



51 



52-53 



P - Print total line. All totals within the 
same level may be printed on one line 
or on separate lines. 

P - Punch total summary card. All totals 
within the same level may be punched 
in one card or in separate summary 
cards. 

SP - Space after total printing. 
SK - Skip after total printing. 



55 



56 



Enter S to single space. 
Enter 1-3 to obtain additional spaces beyond 
the normal single space (1 for double 
space, 2 for triple space, 3 for quad- 
ruple space). 
Enter 1-9 to skip to corresponding carriage 
tape channels. 
When skipping to carriage- tape channel- 1 after total 
printing, report and field headings do not print. 
When several totals within the same level are printed on 
separate lines, the last T (Total) control card for each 
total level must contain a Skip, Space, or Eject instruc- 
tion. If normal single spacing is desired, the last control 
card must be coded SPS in columns 52-54. 

E - Eject form to carriage-tape channel- 1 
after total printing. Report and field 
headings will print on the next page 
following the eject. 
* - The last T control card specified in 
Phase 2 (Form No. X24-6558) must 
contain an asterisk (*) punch in col- 
umn 56. 
When four control levels are specified in the problem, 
final-total operations are specified on level 5. When less 
than four control levels are specified, final-total operations 
are specified on the next higher level. Examples; 

No controls, final-total operations are specified on 

level 1. 
Minor control only (level 1), final-total operations are 

specified on level 2. 
Minor and intermediate controls (levels 1 and 2, re- 
spectively), final-total operations are specified on 
level 3. 
Minor, intermediate and major controls (levels 1, 2 
and 3, respectively), final-total operations are speci- 
fied on level 4. 
For all the conditions mentioned in these examples, 
the last final-total control card must contain an asterisk 
(*) punch in column 56. 

If Final Totals are not required, a last-card-runout 
total-card for level 1, 2, 3, 4 or 5 must contain an 
asterisk in column 56. 
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Automatic-Carriage-Control Operation 

Page overflow is controlled by the letter O in column 3 
of the master-report control card — Phase 1. Ejecting 
from form to form (carriage-tape channels 12 to 1), and 
skipping to carriage-tape channels 2 and 3, occur auto- 
matically as shown in Figure 3, depending on the 
presence or absence of report- and field-headings con- 
trol cards — Phase 4. 
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Figure 3. Automatie-Carriage-Control Operation 
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Operating Instructions 

To prepare reports with FARGO, proceed as follows: 

1. Ready the ibm 1403 Printer. 

a. Insert into the carriage the paper or form on 
which the report is to be printed. Make the neces- 
sary vertical and horizontal adjustments to properly 
position the form. 

b. Insert the carriage tape punched as follows. 

Normal Condition 

Channel 1 - Report-heading line. 
Channel 2 - First field-heading line. 
Channel 3 - First body line. 
Channels 4-9, if required. Skip-stops for pre- 
determined line printing. 
Chanriel 12 - Overflow line. 
NOTE: For conditions other than normal, channels 
2 and/or 3 may not be required. (See Figure 3.) 

c. Set feed-clutch knob to neutral position. 

d. Press carriage-restore key. 

e. Turn feed-clutch knob back to drive position. 

f . Press check-reset key on the 1403 printer. 

2. Ready the 1401 Console. 

a. Set mode switch to rwn position. 

b. Set I/O check-stop switch to the on (up) posi- 
tion. 

c. Set sense switch A to the on (up) position. 

d. Press check-reset key on the 1401 console. 

e. Press the start-reset key on the 1401 console. 

3. Ready the 1402 read-punch unit. 

a. Set reader switch to on. 

b. Press the non-process runout read key to clear 
the read feed. 

c. Place FARGO program and detail cards in the 
1402 read unit in the sequence illustrated in Fig- 
ures 1 or 6. 

d. If summary punching, set punch switch to the 
ON position. 

1. Press the non-process runout punch key to 
clear the punch feed. 

2. Place cards to be summary punched in the 
punch hopper. 

e. Press check-reset key on the 1402 read-punch 
unit. 

f . Press load key on the 1402 read-punch unit. 

If the control cards punched from the FARGO cod- 
ing sheets contain no errors, the program is loaded 
in approximately 20 seconds. Processing of detail data 
cards is started immediately thereafter. When the last 
card has left the hopper and the machine stops, press 
the start key on the 1402. If specified in the program, 
final totals print automatically on the runout. 



Program Halts 

Program halts may occur not only during the loading 
of the FARGO program deck (Phases 1 to 4) but also 
during processing of the detail cards. Halts occurring 
during Phases 1 to 4 indicate that the control cards 
punched from the coding sheets are not in the proper 
sequence as shown in Figure 1. Or, if they are in the 
proper sequence, invalid codes are punched in column 
1 of the control cards. Valid codes are M, B, C, S, T, 
D, H, F, or #. Codes other than these are invalid. 

Following is a list of program halts, reason for halt, 
and procedure for restarting. When the halt occurs, 
the last card in the read stacker (NR) has an invalid 
code in column 1. 



Storage Address 

Displayed Phase 

2639 1 

2947 1 

2363 2 

2379 3 

3090 4 



Reason, for Halt 
Card has other than M. 
Card has other than B, C, or S. 
Card has other than T. 
Card has other than D. 
Card has other than H, F, or #. 

To restart from any of these halts, proceed as follows. 

1. Remove cards from read hopper. 

2. Press non-process runout read key. 

3. Remove the last three cards from the read stacker 
(NR). The first of these three cards is the control 
card in error. 

4. Correct the error. 

5. Replace the three cards in front of the cards taken 
from the read hopper. 

6. Place the card file in the read hopper. 

7. Press check reset key on the 1402. 

CAUTION: Do not press the start reset key on the 1401 
console. 

8. Press start key on the 1402 read unit. 

During processing of detail cards, if the machine 
stops with the red Stop Light on (1401 Console) and 
storage address 0157 displayed, a constants label has 
been referred to in one of the T or D control cards for 
which there is no corresponding constants control card. 
This may be due to misspelling the 3-character label 
abbreviation on the T or D control card. Or, it may 
be that constants control card was inadvertently omit- 
ted in the constants coding sheet. To restart, proceed 
as follows. 

1. Remove all cards from read hopper and file feed. 

2. Press non-process runout read key on the 1402. 

3. Locate erroneous control card, make corrections, 
and restart from the beginning. 

If the machine stops with the red Stop Light on and 
storage address 3547 displayed, the last card in the 
stacker is a type of card for which no entry was made 
on the Phase 3 code sheet. 
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During processing of detail eards, the program may 
hang up at an unknown address with the following 
lights on: 

PROCESS 

CHECK RESET 

A- OR I- ADDRESS REGISTER. 

The A- Address Register Light means that an edit 
control word entered in the constants coding sheet is 
too small for the data being edited. The I-Address 
Register Light means that a 1401 operation code rep- 
resented by an invalid character is detected in storage. 

To locate the edit control word that is too small for 
the data being edited, execute a storage print-out as 
follows. 

1. Set mode switch to storage print-out. 

2. Press I-address register key and note address loca- 
tion displayed. 

3. Turn hundreds and thousands manual-address 
switches to digits corresponding to the hundreds 
and thousands positions displayed. 

4. Press start key on the 1401 console. 

5. Examine the storage print-out and find the I-address 
displayed in Step 2. 

6. Go back from there to the first load (L) instruction. 
The A-operand of this instruction contains the stor- 
age address of the edit control word that is too 
small. 

7. Locate constants control card, make corrections, 
and restart from the beginning. 

To locate and correct an invalid character used as 
an operation code execute a storage scan as follows. 

1. Set mode switch to storage scan. 

2. Set manual-address switches to 0000. 

3. Hold down the start key. 

4. Machine stops when an invalid character is detected 
in storage. The storage position in error is shown in 
the storage-address display unit. The B-register dis- 
plays the contents of the storage position in which 
the error is detected. 



Locate the control card in which the invalid charac- 
ter is punched and remove it from the program 
deck. 

Correct the error by punching a new control card 
and inserting it in the program deck. 
To restart, a complete card runout and start reset is 
necessary. 



Patching 

The term patching as used in connection with FARGO, 
means linking a special subroutine or library program 
to the main FARGO program: The linkage is accom- 
plished by branching from a specific patch point in 
Phase 3 (detail control cards) or Phase 2 (total control 
cards) to the patch subroutine, then branching back 
to the main FARGO program, after the subroutine is 
executed. 

With a 4k machine, at least 956 storage positions 
are available for storing patch subroutines. In some 
cases, depending upon the complexity of the report 
involved, more storage positions may be available. 
These subroutines must be entered into the machine 
in actual 1401 machine language. Therefore, a knowl- 
edge of 1401 programming or symbolic programming 
(SPS) is a prerequisite. 

The specific patch point(s) for linking subroutines 
is determined by the programmer as he normally 
writes the FARGO instructions. These patch points are 
first recorded on Phase 3 and Phase 2 coding sheets as 
4- or 7-position no-op instructions. They are changed 
later to unconditional branch instructions after the 
exact locations of the patch subroutines are deter- 
mined. 



Phase 3 — Detail No-Op Control Cards 

At each point in Phase 3 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2-6, and 7-10 as shown in Figure 4. 



DETAIL CONTROL CARDS - PHASE 3 


D 


Type of 
Detail 
Card 


Special 4 or 

7 position 

1401 Instruction 

(actual) 


Column Split 


E = Edit 

L = Load Edit Control Word 

M = Move Constant Data 

'. ~ Move and Suppress Zeros 

D = Move Digit 

Y — Move Zone 


E 

M 
Z 
D 
Y 


- E«^'* DETAIL CARD DATA 
= Move 

= Move and Suppress Zeros 
= Move Digit 
= Move Zone 


C = Char. 
Z = Zone 


1 

C 

z 


D 
Y 


— Move Digit 

— Move Zone 


Label 


Print 
Positions 


Punch 
Positions 


> ' 


Data Card 
Columns 


Print 
Positions 


Punch 
Positions 





Card 
Cols. 


O 

P 


A 


B 


^ ' 


From 


To 


f From 


From 


To 


From 


To 


From 


To 


From 


To 


From 


To 


1 


2 


3 5 


6 


7 


8 10 


11 13 


14 


15 17 


18 20 2 


1 22 24 


25 27 


28 30 


31 33 


34 36 


37 


38 40 


41 43 


44 46 


47 49 


50 52 


53 5i 


D 


X 


x,MX 


X 


N 


0\0\0 


1 1 




1 1 


1 1 


1 i 


1 1 


1 1 


1 1 


1 1 




1 1 


1 1 


1 1 


1 1 


1 1 


i 1 


D 




1 1 






L 1, 


1 1 




1 1 


1 1 


I 1 


I 1 


1 ! 


1 1 


J.,.,L 




1 1 


1 1 


1 1 


•1 1 


i 1 


1 1 



Figure 4 
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The D in column 1 is preprinted on the form. This 
indicates that branching to the patch subroutine is to 
occur during the detail portion of the program. The 
codes entered in cohimns 2-6 specify the type of detail 
card for which the patch subroutine is to be executed. 
The entry, NOOO in columns 7-10, is the no-op instruc- 
tion. This is changed later to an unconditional branch 
instruction (Bxxx), with xxx indicating the actual ma- 
chine address of the patch subroutine. 



Phase 2 — Total No-Op Control Cards 

At each point in Phase 2 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2, and 39-45 as shown in Figure 5. 

The T in column 1 is preprinted on the form and 
indicates that branching to the patch subroutine is to 
occur during the total portion of the program. Any 
digit from 1 to 5 entered in column 2 specifies the 
program level during which the patch subroutine is to 
be executed. The entry N788788 in columns 39-45 is 
the no-op instruction. This must be changed later by 
an instruction in the patch subroutine to an uncon- 
ditional branch instruction (Bxxxbbb), with xxx indicat- 
ing the actual machine address of the patch subroutine 
and bbb indicating blanks. 

The FARGO program, including the no-op control 
cards that cause no machine operation, is completely 
tested with a representative deck of detail data cards 
and approved before the subroutines are inserted in- 
to the program deck. This is necessary because any 
change in the FARGO control cards after the sub- 
routines are inserted affects the storage locations of the 



generated report program, requiring changes in the 
subroutine instructions. 

After the FARGO-generated portion of the report 
is satisfactorily tested, execute a storage print-out 
and examine it to determine: 

1. the end of the FARGO-generated program. 

2. storage location of patch points (no-op detail and 
total control cards). 

The end of the generated program is determined by 
locating the report-heading information that is loaded 
into storage immediately after the last instruction from 
the detail control cards. If report-heading information 
is not specified in Phase 4, the end of the generated 
program is the last BE66 instruction. This instruction 
appears following the last generated instruction for 
each type of detail card specified in Phase 3. There- 
fore, the end of the generated program is either the 
last position of the report-heading information (includ- 
ing blanks), or the last B^E66 instruction. The area 
available for storing the patch subroutines extends 
from this point (storage location 2358 or lower, depend- 
ing upon the complexity of the report involved) to 
3313. Thus, with a 4k machine, 956 storage positions 
or more are available for patch subroutines. Obviously, 
with machines of greater capacity, an additional amount 
of storage is available, starting with location 4000, 

The storage location of each patch point is deter- 
mined by visually scanning the storage print-out and 
finding the no-op instructions. Detail no-op instructions 
are identified by NOOO. Total no-op instructions are 
identified by N888888. N888888 was recorded on the 
coding sheet as N788788 but changed by the FARGO 
program to N888888. 



TOTAL CONTROL CARDS - PHASE 2 
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Converting No-Op Instructions 

The control card containing the detail no-op instruc- 
tion (NOOO) may be removed from the FARGO deck 
and replaced with a control card containing an un- 
conditional branch instruction Bxxx. Or, it may remain 
in the deck in which case the no-op instruction must 
be converted to an unconditional branch instruction 
Bxxx by an instruction in the patch subroutine. 

The control card containing the total no-op instruc- 
tion (N788788) always remains in the FARGO deck. 
The no-op instruction, therefore, must be converted 
to an unconditional branch instruction Bxxxbbb by 
an instruction in the patch subroutine. 



Coding the Patch Subroutines 

As previously stated, a patch subroutine must be en- 
tered in storage in actual 1401 machine language. It 
may be written in symbolic language and assembled 
with an assembly processor as described in IBM 1401 
Symoblic Programming Systems, Form C24-1480. 

To branch back to the main FARGO routine after 
the subroutine is executed, the last instruction in each 
patch subroutine must be an unconditional branch in- 
struction. For example, if a detail (Phase 3) no-op 
instruction (NOOO converted to Bxxx) is in locations 
1445-1448 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to 1449. If a total (Phase 2) no-op instruc- 
tion (N888888 converted to Bxxxbbb) is in locations 
1201-1207 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to location 1208. 

If coded in SPS, the program is assembled after 
testing the FARGO portion of the job so that the origin 
address of the subroutine can be determined from the 
storage print-out. When the object program deck is 
created by the SPS assembly processor, the first two 
cards contain instructions to clear storage. These two 
cards must be removed from the deck. The rest of the 
object program deck (one instruction per card) can 
then be loaded directly behind Phase-4 control cards. 
Or it can first be condensed into multiple instructions 
per card with a condensing program as described in 
IBM 1401 Symbolic Programming Systems, Form C24- 
1480. 

An example of a patch subroutine coded in actual 
machine language is shown in Figure 23-G. Another 
example of FARGO patching and linkage using SPS is 
shown in Figure 24. 



NOTE: 

If the 1401 does not have a Multiply -Divide optional 
feature, the Multiply-Divide Subroutines discussed 
in the 1401 Reference Manual can be patched into the 
FARGO program. 







FARGO PROGRAM 

AND CONTROL CARDS 

( Phases 1 - 4 ) 




1. Combined FARGO Program and FARGO Control Cards 

2. Last card in Phase 4 punched # in columns 1 and 2 

3. Patch subroutine(s) 

4. Trailer card containing instructions to clear the 
read-in area, and branch to 3314(C14). 

5. Report Detail Data Cards 



Figure 6. FARGO with Patch Subroutine 



Loading the Patch Subroutines 

All patch subroutines are loaded immediately after 
the Phase-4 control cards. Normally, the last Phase-4 
control card is punched # in column 1 of a blank card. 
To signal the FARGO program that patch-subroutine 
instruction cards are to be read into the system after 
Phase 4 is completed, this same card must also have 
a # punched in column 2. This causes the program 
to clear the read-in area (locations 1-80), set a word 
mark in location 001, read the next card, and then 
branch to location 001. 

After the last patch subroutine is loaded, a clear- 
and-branch trailer card must follow to clear the read- 
in area, and branch to location C14 (3314), this being 
the starting location of the permanent FARGO pro- 
gram. The report detail cards immediately follow the 
trailer card. 

The cards are run through the machine in the se- 
quence illustrated in Figure 6. 
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Multiply-Divide Optional Feature 

If the multiply-divide optional feature is installed in 
the 1401, direct multiplication and division can be 
specified with FARGO detail and/or total (Phases 3 
and 2) control cards. Before the proper entries can be 
made in these coding sheets, however, several factors 
must be considered. 



Multiplication 

Whenever FARGO report specifications involve a mul- 
tiplying operation, the first thing that must be decided 
is the size of the product to be developed. As explained 
in the ibm 1401 Data Processing System Reference 
Manual, A24-1403, this is done by adding 1 to the 
sum of the number of digits in the multiplier and the 
multiplicand. Assuming a 3-digit multiplier and a 4- 
digit multiplicand, the size of the product can then be 
readily determined by the following formula: 

3 (multiplier) plus 4 (multiplicand) plus 1 = 8 ( size of product ) . 

The multiplier may be fixed; that is, not punched 
in the detail cards but set up as a constant with an 
identifying label in Phase 1 for later reference in 



Phases 3 or 2. Or, it may be variable; that is, punched 
in each detail card or some specific type of card within 
a control group. 

A fixed multiplier (example: 125) may be set up as 
a constant in one of several ways as shown in Figure 7. 

A variable multiplier may be punched in known 
columns of all or specific types of detail cards. 

Multiplicands are always variable and may be 
punched in known columns of all or specific types of 
detail cards. Or, they may be developed as a total 
in an accumulator and identified with an appropriate 
label. Although any 1-, 2-, or 3-character label may be 
used to identify an accumulator, many users of 
FARGO prefer to use labels corresponding to 407 
counters; for example, 2A, 2B, etc., 4A, 4B, etc. 

Experience has shown that this method of labeling 
accumulators often simplifies the conversion of report 
specifications from the 407 to the 1401. 

Having determined the size of the product, set up 
a work area in storage for developing and retrieving 
the product. This is done by making two successive 
entries on the constants control cards coding-sheet 
(Phase 1) as shown in Figure 8. 
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The first entry, C (constant with a word mark), sets 
up the three high-order (left-hand) positions of the 
product work area into which the 3-digit fixed or 
variable multiplier will be moved later with a T or D 
control card. 

The second entry, S (constant without a word mark), 
sets up the five low-order (right-hand) positions of the 
product work area, thus establishing an 8-position 
product work area somewhere in storage. 

Multiplying in Phase 3 with a Fixed Multiplier 

Multiplying with a fixed multiplier (125) can be spe- 
cified for all or any specific type of detail card by 
making the entries in columns 56-68 as shown in 
Figure 9. 

The first or second entry ? (whichever one is used) 
zeros (resets) and adds the constant 125 in the three 
high-order (left-hand) positions of the product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the fixed multi- 
plier (125). When the multiplying operation is com- 
pleted, the product is in the seven low-order positions 
of the product area, thus destroying the multiplier. The 



fixed multiplier, however, is still available for subse- 
quent operations from the area labeled 125 or fix. 

Following the multiply operation @, another entry 
moves the product either to print positions and/or to 
an accumulator identified by a constant label. If the 
product is to be punctuated, an edit control word is 
first loaded into the desired print positions. The prod- 
duct is then moved to the same print positions with 
an E (edit) instruction. 

Multiplying in Phase 3 with a Variable Multiplier 

Multiplying with a variable multiplier can be specified 
for all or any specific type of detail card by making 
the entries in columns 56-68 as shown in Figure 10. 

Entry ? zeros (resets) and adds the variable 3-digit 
multiplier punched in columns 21-23 of the detail 
card into the three high-order (MPR) positions of the 
product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the variable 
3-digit multiplier punched in columns 21-23 of the 
same card. The product is developed in the same 
manner as previously described. 
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Multiplying in Phase 2 

Multiplying in Phase 2 (total control cards) always 
involves three labels. One label identifies a fixed- or 
group-multiplier, A second label identifies an accumu- 
lated multiplicand, while a third label identifies the 
product. 

In establishing the size of the product, the same 
rule applies. However, because the multiplicand factor 
is an accumulated total, the maximum number of 
digits expected in the multiplicand must be predeter- 
mined before setting up a product work area. 

Having determined the size of the product, make 
the appropriate C and S entries on the constants con- 
trol cards coding-sheet (Phase 1) to set up the product 
work area. 

During the Phase-3 (detail) portion of the program, 
a fixed multiplier set up with a constant control card, 
or a group multiplier punched in a specific detail card 
within the control group, is moved to the MPR portion 
of the product work area. The detail multiplicands are 
accumulated in a storage area labeled, for example, 
MCD. On any given total level in Phase 2, multipli- 
cation is specified by making the entry in columns 
6-12 as shown in Figure 11. 

Entry @ multiplies the accumulated multiplicand 
labeled MCD (or any other label chosen by the pro- 
grammer) by the fixed- or group-multiplier moved to 
the MPR portion of the product work area during 
Phase 3. The product is developed in the product work 



area labeled PDT (or any other label chosen by the 
programmer). For example, in a payroll application, 
the multiplier might be labeled RTE (rate), the mul- 
tiplicand HRS (hours), and the product GES (gross 
earnings). In another application, the multiplier might 
be labeled UNP (unit price), the multiplicand QTY 
(quantity), and the product AMT (amount). 



Division 

Whenever FARGO report specifications involve a di- 
viding operation, a work area for accommodating the 
dividend and developing the quotient and dividend/ 
remainder must be set up in storage with constants 
control cards in Phase 1. The size of this work area 
must be equal to the sum of the number of digits in the 
divisor and dividend, plus 1. Assuming a 3-digit di- 
visor and a 4-digit dividend, the size of the work area 
can be readily determined by the following formula: 

3 (divisor) plus 4 (dividend) plus 1 = 8-position work area. 

Having determined the size of the work area, set up 
the area in sections to permit addressing specific 
locations of the quotient, dividend, and dividend/ 
remainder. These sections must be set up in proper 
sequence, which may vary, depending on the size of 
the dividend and the divisor. For the example used, 
the following analysis of the problem illustrates how 
this sequence is established. 
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PROBLEM ANALYSIS 



Quot. 



I Dividend 
+ 
xlxlxlxh 



8-position area required for example used. 



Counting from the low-order position of 
the work area, draw a line to the left of 
the length of the divisor plus 1. 
3 (divisor) plus 1 = 4. 



To the left of this line, a 4-digit quotient 
is developed. 

■The units position is the address of the 
quotient upon completion of the divide 
operation. 



Quot. Div/Rem 
+1 + 

|x|x|x|x Olxlxlxl 



The 4-digit dividend with a plus sign in 
the units position is placed in the low- 
order positions of the work area with a 
ZERO and add instruction (?). 
■The high-order position of the dividend 
must be addressed when executing the 
DIVIDE instruction. 



L 



The units position of the work area is 
the address of the dividend/remainder 
upon completion of the divide operation. 
With a 3-digit divisor, the dividend/re- 
mainder is always less than the divisor. 
Therefore, the position immediately to 
the right of the quotient is always zero. 



To set up the three sections of the work area in the 
sequence estabhshed by the foregoing analysis, make 
three entries in the constants control card coding-sheet 
as shown in Figure 12. 

Entry C (constant with a word mark) sets up the 
4-digit quotient section of the work area. 

The first entry S (constant without a word mark) sets 
up the high-order position of the dividend. This posi- 
tion is addressed when executing the divide instruc- 
tion. 

The second entry S sets up the remaining low-order 
positions of the work area, thus establishing the 8- 
position work area required for the example used. 

In some problems, the analysis will show that the 
quotient area and the dividend area overlap; that is, 
the high-order position of the dividend extends further 
to the left than the low-order position of the quotient. 
Example: 5-digit dividend, 2-digit divisor. 

Quot. iD/R 

|x|x|x|x|x|0|x|x| 
Dividend 



X X X XX 



In such cases, the work area is set up in four sections 
as shown in Figure 13. 

Other variations are presented later in this manual 
under Half -Adjustments of Products and Quotients. 
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Dividing in Phase 3 with a Fixed Divisor 

Assuming that the fixed divisor (3 digits) is set up in 
storage with a label fix, and the 4-digit dividend is 
punched in detail card columns 21-24, the divide in- 
structions are recorded in detail control cards Phase-3 
coding-sheet as shown in Figure 14. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the fixed divisor, and develops 
a 4-digit quotient in the high-order positions of the 
work area labeled QNT. 

Following the divide operation, another entry moves 
the quotient to print positions and/or to accumu- 
lator identified by a constant label. If the quotient is 
to be punctuated, an edit control word is first loaded 
into the desired print positions; the quotient is then 
moved to the same print positions with an E (edit) 
instruction. 

Dividing in Phase 3 with a Variable Divisor 

Dividing with a variable divisor can be specified for 
all or any specific type of detail card. Assuming that 
the 4-digit dividend and the 3-digit divisor are 
punched in columns 21-24 and 25-27, respectively, the 



entries are made in columns 56-68 as shown in Fig- 
ure 15. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the divisor punched in columns 
25-27, and develops a 4-digit quotient in the high- 
order positions of the work area labeled QNT placing 
a sign in the units position of the quotient. 



Dividing in Phase 2 

Dividing in Phase 2 (total control cards) involves an 
accumulated factor that may be either the dividend 
or the divisor. Once the sizes of these factors are 
known, appropriate C and S entries, as previously de- 
scribed, are made on the constants control cards cod- 
ing-sheet (Phase 1) to set up the work area. 

Assume that the accumulated factor developed in 
Phase 3 (detail portion of the program) under the label 
AMT (amount) is to be used as the dividend. The 
divisor is either a fixed- or a group-divisor, properly 
identified with any label chosen by the programmer. 
On any given total level in Phase 2, division is specified 
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by making the entries in columns 6-12 as shown in 
Figure 16. 

Entry ? zeros (resets) and adds the accumulated 
amount (AMT) in the low-order positions of the work 
area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the divisor (xxx), and 
develops the quotient in the high-order positions of 
the work area labeled QNT. 

Assume that the accumulated factor developed in 
Phase 3 under the label QTY (quantity) is to be used 



as the divisor. The dividend is either a fixed- or a 
group-dividend properly identified with any label 
chosen by the programmer. On any given total level in 
Phase 2, division is specified by making entries in col- 
umns 6-12 as shown in Figure 17. 

Entry ? zeros (resets) and adds the fixed- or group- 
dividend (xxx) into the low-order positions of the 
work area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the accumulated quan- 
tity (QTY), and develops the quotient in the high- 
order positions of the work area labeled QNT. 
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TOTAL CONTROL CARDS - PHASE 2 


T 


M 




> 
« 

Be- 
fore 

Print / 


^ == Add 

> = Subtract 
a = Multiply 
% — Divide 
>A = Move 


L = Load Edit Control Word 

M = Move Constant Data 

Z — Move and Suppress Zeros 


E = Edit 

M = Move 

Z = Move and Suppress Zeros 


Summary Punch 
Column Split 




clear 
Accum. 


S P 
S K 


> 


Label 


Label 


Print 
Positions 


Label 


Print 
Positions 


Punch 
Positions 


D 
Y 


- Move Digit 
= Move Zone 


S 


Label 


f From 


To ^ 


, From 


From 


To , 


^ From 


From 


To 


From 


To 


T 


From 


To 


To 


1 


2 


3 4 


5 ( 


S 7 9 


10 12 1 


314 16 


17 19 


20 22 2 


3 24 26 


27 29 


30 32 


33 35 


36 38 


39 


40 42 


43 45 


46 


47 49 


T 


X 




1 


^ ^1 W 


^V\'{ 


(xxx 

If^e 


Standi! 
d |or|gi 


ig for \ i 
cn4> |di ] 


n label 
i^enH)| 


chosen 

1 1 


by the 

1 1 


TT 


mmer 


O 


identify 


r the 




1 1 


T 


X 


1 


? 


s^iTiy 


2^|/|K 


1 1 


1 1 


1 1 


1 1 






1 1 


1 1 




I i 


1 ; 






T 




1 
1 




1 1 




1 1 




1 1 


1 1 


1 1 


i 1 




1 \ 




1 ; 
1 ■ 


i ' 




1 i 



Figure 17 



25 



Half-Adjustments of Products and Quotients 

Products and/or quotients may be half-adjusted 
(rounded) by adding 5 to the position in the product 
or quotient immediately to the right of the wanted 
result. If the position to which the 5 is added stood at 
5, 6, 7, 8, or 9, a carry occurs to the units position of 
the wanted result, thus rounding the product or quo- 
tient by adding the carry-over 1. If the position stood 
at 0, 1, 2, 3, or 4, the carry does not occur and the 
product or quotient is not adjusted. This procedure 
is often used to round out results to the nearest cent. 
The following examples illustrate. 

Product Adjustment 

Assume a 4-digit multiplicand (with two decimals) 
and a 3-digit multiplier (all decimals). 



EXAMPLE 

Product 
^2 adjust 



34.85 
X . 125 



4.35 



4.36 



625 

500 

125 



Rule for placing the decimal point in 

the product: 

The sum of the number of decimal 
positions in the multiphcand and 
the multiplier equals the number 
of decimal positions in the product. 



Rounded Product Dropped decimals 



PROBLEM ANALYSIS 



MPR 

+ 

|x|x|x| Mill 
.1 2 5 

PRODUCT + 

|01xlx|x|xlxlx|xl 
4.3 5 6 2 5 



4-digit multiplicand plus 3-digit multi- 
plier plus 1 = 8-position work area. 

3-digit multiplier area (label MPR). 



t_ 



+ 
500 



ADJ 

lOlxlxlxl 
4.3 



PDT 

+ 

x|x[x| 
125 



Units position of developed product (label 
PDT). Upon completion of multiply op- 
eration, sign in this position must be 
moved to the units position of Constant 
500 (label RND). 

RND with sign must then be added into 
the 3 low-order positions of the devel- 
oped product. 
Units position of wanted product. 



' Units position of adjusted product (label 
ADJ). Sign in units position of PDT must 
be moved to units position of ADJ. 



To set up the three sections of the 8-position work 
area (MPR, ADJ, PDT), the constant 500 (RND), and 
an edit control word (ECW) to edit the adjusted 
product, five entries are made in the constants control 
cards coding-sheet as shown in Figure 18. 

Characters &CR in the edit control word are not 
required if the products are always positive. The zero 
(0) to the left of the decimal point suppresses all 
insignificant zeros to the left of the decimal point, and 
the & causes a space between the units position of 
negative amounts and CR symbols. Examples of edit 
printing: 

.09 

4.36 

15.08 

.07 CR 

8.39 CR 

29.06 CR 

To make proper entries on the coding sheets for this 
example, base the specifications on the following as- 
sumptions. 

1. Multiplication is to be accomplished for all detail 
data cards (Phase 3), 

2. Multiplier is punched in columns 21-23, with an 
X punch in column 23 if negative. 

3. Multiplicand is punched in columns 31-34, with an 
X punch in column 34 if negative. 

4. Adjusted product (positive or negative) is to be 
edited and printed in print positions 101-109, with 
no sign if positive, and cr symbols if negative. 

To accomplish item 4, make the following entries in 
addition to those required to perform the basic mul- 
tiplication. 

1. Move the plus or minus sign from the units position 
of the developed product to the units position of 
the constant RND 500. 

2. Add RND with sign to the low-order positions of 
the developed product (PDT). 

3. Move the sign from the units position of PDT to 
the units position of the adjusted product (ADJ). 

4. Load edit control word (ECWbbO.bb&CR) to print 
positions 101-109. 

5. Edit and print ADJ in print positions 101-109. 
Seven entries are required in various columns of 

detail control cards (Phase 3) coding-sheet as shown 
in Figure 19. 
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CONSTANTS CONTROL CARDS - PHASE 1 
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DETAIL CONTROL CARDS - PHASE 3 
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Quotient Adjustment 

Assume a 6-digit dividend (with two decimals) and a 
3-digit divisor (with no decimals). 



EXAMPLE 



0034.856 <— Extended quotient adjusted to 34.86 by 
adding 5 to the units position. 



125)4357.120 
375 
607 
500 
1071 
1000 

712 (end of actual 

dividend) 
625 
870 (dividend 
extended) 
750 

120 (end of 
division) 



PROBLEM ANALYSIS 



Rule for placing the decimal point 

in the quotient: 

Number of decimals in the divi- 
dend minus the number of deci- 
mals in the divisor equals the 
number of decimals in the quo- 
tient. 



To set up the various sections o£ the work area in 
the proper sequence and to set up other required con- 
stants as analyzed in the foregoing, make entries in 
the constants control cards coding-sheet as shown in 
Figure 20. 

To make the proper entries on the coding sheets for 
this example, base the specifications on the following 
assumptions. 

1. Division is to be accomplished for all detail data 
cards (Phase 3). 

2. Dividend is punched in columns 31-36, with X 
punch in column 36 if negative. 

3. Divisor is punched in columns 37-39, with X punch 
in column 39 if negative. 

4. Adjusted quotiejit (positive or negative) is to be 
edited and printed in print positions 101-111 with 
no sign if positive and cr symbols if negative. 

To develop adjusted quotient as specified, make 
entries in the various columns of the detail control 
cards (Phase 3) coding-^sheet as shown in Figure 21. 



Quotient 



7-digit extended dividend plus 3- 
digit divisor plus 1 = 11-position 
work area. 



Line to the left of the number of 
digits in the divisor plus 1 locates 
the extended quotient including sign 
in the units position. 



Dividend i 

|xlx|x|xlx|x] 
4357.1 20 



L 



|xlx|x| 
003 



x|x|x 
4.8 5 



+ 

0|x|x|x| 
120 



Adj.Quot. 

t 
lx|x|x|x|xlx 
'0 3 4.8 6 



+ 

x|0|x|x|x| 
10 12 



< Units position of extended divi- 
dend (label EXD). Supplied by mov- 
ing constant or blank to EXD. 
Units position of actual dividend (la- 
bel ACD). To signal end of division, 
sign in this position resulting from a 
ZERO AND ADD instruction must he 
removed and transferred to the units 
position of extended dividend before 
executing the divide instruction. 
High-order position of actual divi- 
dend (label DIV). This position is 
addressed when executing the divide 
operation. 



■Units position of extended quotient 
(label EXQ). Upon completion of the 
divide operation, sign in this posi- 
tion must be moved to Constant 5 
(RND). 

■RND with sign must then be added 
to units position of extended quo- 
tient. 



Units position of adjusted quotient 
■(label ADQ). Sign in units position 
of EXQ must be moved to units po- 
sition of ADQ. 
•High-order position of ADQ. 
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CONSTANTS CONTROL CARDS - PHASE 1 
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DETAIL CONTROL CARDS - PHASE 3 
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Figure 21 
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FARGO General Program Operation and 
1401 Core-Storage Organization 

The following table describes in summary the se- 
quence of events occurring during the loading of the 
combined FARGO program decks and the control 
cards punched from the coding sheets. 

Code in 

Column 77 Program Operation and Core-Storage Organization 

FARGO Phase 1 program is loaded temporarily into 
locations 2618-3313. 

FARGO program is loaded permanently into loca- 
tions 3314-3699 during Phase 1. 

1 Phase- 1 control cards coded M, B, C, and S modify 
the permanent FARGO program, load up to 50 con- 
stants into storage beginning with location 333, and 
set up a table in locations 3700-3999 indicating the 
location of each constant. 

2 FARGO Phase-2 program is loaded temporarily into 
locations 2306-3313, canceling out the temporary 
FARGO Phase- 1 program. 

3 Phase-2 control cards coded T generate total instruc- 
tions and load them into locations immediately fol- 
lowing the constant area. 

4 FARGO Phase-3 program is temporarily loaded into 
locations 2301-3313, canceling out the temporary 
FARGO Phase-2 program. 

5 Phase-3 control cards coded D generate detail in- 
structions and load them into locations immediately 
following the total instructions. The last instruction 
generated in Phase 3 will be BE66. 

6 FARGO Phase-4 program is loaded into locations 
3023-3313, canceling out a portion of the temporary 
FARGO Phase-3 program. 

7 Phase-4 control cards coded H load the report-head- 
ing information into locations immediately following 
the last BE66 instruction generated in Phase 3. 
The constant table in locations 3700-3999 set up 
during Phase 1 is cleared and the Phase 4 control 
cards coded F load the field-headings information 
into this area. 

Location 2358 (or less) up to location 3313 is avail- 
able for storing patch subroutines. 
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FARGO Report Examples 



Register of Earnings and Deductions 

This report will be listed on blank paper. Specifications 
include the following operations: 

1. Report and Field Headings with overflow and page 
numbering. 

2. Minor and Intermediate Controls. 

3. Group-indication of control fields. 

4. Addition and Subtraction (two types of detail data 
cards). 

5. Three minor totals, three intermediate totals and 
three final totals. All amounts listed and total- 
printed will be edited. 

Report format and completed FARGO coding 
sheets are shown in Figures 22-A to 22-E. An exam- 
ple of the finished report is shown in Figure 22-F. 



Remittance Statement and Voucher Check 

Statement and voucher check will be prepared on 
preprinted inverted forms. Statement portion of form 
provides for listing of debit and credit accounts pay- 
able items (4 types of detail data cards punched 1-4 
in column 7), total printing of date, vendor number, 
and an edited statement total with floating $. 

Voucher check provides for date, vendor number, 
check number, and edited check amount with floating 
$ on one line. This is followed by a space and 3-line 
printing of name, address, and city read into storage 
from a card punched — (11-punch) in column 7. A 
fourth line address, when required, is read into stor- 
age from a trailer address card punched & (12-punch) 
in column 7. Name and address cards precede detail 
data cards. 

Specifications include punching of a summary card 
for both valid and void (overflow) checks. The sum- 
mary cards, including those punched for void checks, 
will be used to prepare check registers and for check 
reconciliation. 

Valid checks are printed and summary punched 
with FARGO instructions. Void checks are printed 
and summary punched with instructions from a patch- 
ing subroutine. 

Format of Remittance Statement and Voucher 
Check and completed FARGO coding sheets are 
shown in Figures 23-A to 23-G. Patch subroutine card 
format is shown in Figure 23-H. Examples of state- 
ments and checks are shown in Figure 23-J. 
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407. 408, 409 
Form Alignment 
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If / 1 2 3 
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1 List-Overf low-Page Numbering 
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,TIONS NET PAY i Field Headings 
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PROGRAM IDENTIFICATION 
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REPORT HEADING CONTROL CARDS - PHASE 4 



Two Cards (on* lino) Card 1 = Print Positions 1-66; Card 2 = Print Positions 67-132 
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FIELD HEADINGS CONTROL CARDS - PHASE 4 1 
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Four Cards (two linos) Card 1 = Print Positions 1-66; Cord 2 = Print Positions 67-132 
Card 3 = Print Positions 1-66; Cord 4 = Print Position? 67-132 
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# NOTE: BLANK CARD PUNCHED # IN COLUMN 1 MUSf FOLLOW LAST CONTROL CARD IN PHASE 4 
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Fields 1-4 = Group 
Indication Fields 
(First Card Minor) 
M = Move 
Z = Move and 

Suppress Zeros 
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CONSTANTS CONTROL CARDS - PHASE 1 



No. 
Pos. 



Label 



Column 1 C = Constant with a word mark; S = Constant without a word mark 

Columns 2-3 = Size of Constant Word 

Columns 4-6 = Label to identify Constant Word 

Columns 7-72 = Field for punching Constant Word (66 characters maximum) 
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■ = Edit 

L = Load Edit Control Word 

M = Move Constant Data 
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5) = Multiply 
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Punch 
Positions 


D 
Y 


— Move Digit 
= Move Zone 


S 


Label 


" S P 
' S K 




, From 


To , 


f From 


From 


To ^ 


f From 


From 


To 


From 


To 


T 


From 


To 


To 


1 


2 


3 4 


5 < 


i 7 9 


10 12 1 


3 14 16 


17 19 


20 22 2 


3 24 26 


27 29 


30 32 


33 35 


36 38 


39 


40 42 


43 45 


46 


47 49 


.'iO.') 


1 52 53 


54 


55 


56 




7? 


78 80| 








> 


^H|4I( 


£\A\X 


1 1 


1 1 


l-l 




1 1 




















1 








) (j^(^..f.L^^^ZtjU 


3 





1 











> 


»2?|£|/ 


i)|f|i 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 














1 1 




1 








\ ir^y^. ^E«(».*.-j^ 


3 





2 











> 


lA'l/'l/ 


^P\^ 


1 1 


1 1 




1 1 


1 1 
















1 1 














3 


O 


3 













1 1 


1 1 


L 5|C|w 


^1^1^' 


^1-^15"/ 


Ef|4|/ 


o\x\S 


^\i\S' 












s 


51/1 K 




1 








\ t£ct ^.^ jL,^^.^ 


3 


6 


4 













1 1 


1 1 ' 


L t|C|v»/ 


^|J|i" 


■^I'/li- ( 


:J>|e|/ 


^\J\^ 


<5|y|in 












s 


J>|£|< 












> S^^Xv-- ^^^^**/- 


3 


6 


5 













1 1. 


1 1 ^ 


-^CIVV 


0|^|6 


i>\S\(o I 


^A^/^l/ 


<>\if\C 


o\S'\^ 












s 


/V|/^|/ 




1 








j T^T^ 


3 





6 













1 I 


1 1 I 


-mip 


<3|/|/ 


0\X\b 


1 1 


\ 1 


1 1 














1 1 


P 


S\P^ 


/ 








3 


£) 


7 







dl 




/ 


\e\A\^ 


5141:? 


1 1 


1 1 


1 1 




1 1 


II 














1 1 




1 








\ (^.^S^.Smi^£o 


3 


6 


8 







1 




4 


^\£\i^ 


i>lfl^ 


1 1 


1 1 


1 1 


1 1 












1 1 


















\ fc.^^^<U..,^:fc^ 


3 


O 


9 







X 




t 


\/^\^\^ 


^\P\3 




1 1 


1 1 


1 1 


1 1 


1 1 








1 , 






1 1 




1 








I 


3 


\ 










X 






1 1 


1 1 i 


. £|C|W 


^|i|^ 


o\3\S L 


^£\A\X 


i>\X\4' 


-o\3\^ 


• I 1 






1 1 




S 


£\A\x 




1 








) cfU^ ....^ eM..,^ 


3 


1 


1 







X 






1 1 


1 1 < 


- TKIW 


6i3\^ 


:^^^< 


?J>iei^ 


<i\3\S^ 


o\4\s- 


1 1 






1 1 




S 


J)\£\x 




1 








\ J^c^.^:^^ 


3 


1 


2 







X 






1 1 


1 1 i 


. ficiw 


^1^1 4 


o\ir\(^ I 


? iV\P\x 


o\^\(> 


i>\6~\L 












s 


/V|/>|i 




1 








) ^ 


3 


1 


3 







X 








1 1 i 


-2>f]r 


<']/]f 


o\x.\/ 


1 i 


1 1 


1 1 


1 1 






1 , 






1 1 


P 


5^ 


a. 






.t^jt^M^^^^xAfjjiJji^ 


3 


1 


4 







3 






1 1 


1 1 ^ 


.5|C|W 


^\^\s 


o\3\St 


:£\A\J 


o\i.\<; 


c\3\S' 








1 , 




S 


5^|A|5 




1 








\ dL^.,.^'u^ 


3 


1 


5 







? 






1 1 


1 1 i 


-ficiw 


^|3|i- 


6|Vli- i 


5D\e\3 


0|i|5- 


o\^\ir 












5 


i>|e|? 




1 








\ ::^I_^ J>^.^^^ 


3 


/ 


6 







3 






1 1 


1 1 i 


.£|CK 


a^i/f 


0\S\i> J 


PAf/>|i 


d\4^ 


o\S]<. 




1 1 








S 


/V|/^|J 




1 








^ _^ 


3 


/ 


7 







3 






1 1 


1 1 ^ 


.P|/|^ 


A\l\t 


<>R|JL 


1 1 


1 1 


1 1 


II II 




1 , 






1 1 


P 


1 




5 If- 




3 


/ 


8 













1 1 


1 1 


1 1 


1 1 


1 i 


1 1 


1 1 


1 1 


II II 










1 1 




1 








r r^ 


3 




9 













1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 




1 1 










1 1 














3 




















,., 1 ., 1 ., 


1 1 




1 1 ■ 






1 1 




1 1 














1 










3 




1 






o 










O 


o 










O 




REGISTER OF 
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EMPLOYEE NO. 


EARNINGS 


DEDUCTIONS 


NET PAY 






DEPT. SERIAL 


AFTER TAXES 








o 










O 




1 00120 


125.75 


3.75 


125.75 

3.75CR 




o 






1.10 
U.OO 


1 .10CR 
U.OOCR 


O 




EMP. TOTALS 


125.75 


8.85 


116.90 




o 










O 




'1 00121 


85.00 


U.75 


85.00 
U.75CR 




o 


EMP. TOTALS 


85.00 


U.75 


80.25 


o 




1 00122 


108.92 




108.92 




o 






1.25 

3.00 

.80 


1 .25CR 

3.00CR 

.80CR 


o 


o 






.07 


.07CR 


o 




EMP. TOTALS 


108.92 


5.12 


103.80 




o 


DEPT. TOTALS 


319.67 


18.72 


300.95 


O 


o 


11 23815 


185.00 




185.00 


O 


EMP. TOTALS 


185,00 


.00 


185.00 


o 


11 23816 


160.00 




160.00 
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25.00CR 








3.95 


3.95CR 
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115.00 




115.00 
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3.10 
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o 


o 
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U1.75 
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225.00 
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25.00 


200.00 


o 




12U 01080 


155. U5 




155. U5 
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General Manufacturing Company — Endicott, N, 


Y. 




We enclose 


Invoice 


Our Ref. 
Number 


Invoice or 
Claim Amount 


Discount or 
Allowance 


1 


AMOUNT 


check in fuU 


Mo. 


Day 


payment of 
items listed 

CODES: 


XX 

XX 
XX 
XX 


XX 

XX 
XX 
XX 


xxxx 
xxxx 
xxxx 
xxxx 


XX, XXX. XX 
XX, XXX. XX 


XX, XXX. XX 
XX, XXX. XX 
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XX, XXX. XX- 


1. Invoices 
















2. Claims 
















3. Discounts 
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DETACH CHEC 
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XX/XX/XX 


XX XXX 


TOTAL PAID — ^ 


$XX,XXX.XX 


BEFORE DEPOS 


Date 


Vendor 






REPORT SPECIFICATIONS 

MASTER REPORT CONTROL CARD - Ust 

CONTROL BREAK CONTROL CARD - Minor Control on Vendor (columns 1-5) 

DETAIL CONTROL CARDS 

All - Move Vendor (columns 1-5) to VEN 

All - Branch to patch subroutine to test for overflow (see Figure 23 -G) 
Code 

- Move Name, Address and City to NME, ADD and CTY; space 1 (see NOTE) 

& Move Trailer Address to TRL; space 1 

[i Edit Inv. Date (IDA); Move G Zero Suppress Reference; Move Code; Edit"! 
2 Amount (ECl); add Amount to TOT; space 1 J 

[3 Move Zone (-) in column 6 to column 37; Edit Inv. Date, etc. same as"] 
4 for codes 1 and 2 J 



Overflow - Execute patch subroutine 
TOTAL CONTROL CARDS 

Before print skip to carriage tape channel 5 
Move Statement and Check Date (SCD) to print area 
Move S Zero Suppress Vendor (VEN) to print area 
Edit (EC2) TOT and print 



NOTE: Although the first printing line is 
indicated on Line 4 of the carriage tape, 
printing of the first detail data card for 
each vendor occurs on Line 5 if only one 
address card or on Line 6 if two address 
cards. This is because the last control 
card of each type of card to be processed 
requires a space code (rule). On overflow 
forms printing starts on Line 4. 
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Move Address (ADD) to print area and print 

Move City (CTY) to print area and print 
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Move CLR to TRL to clear Trailer Address and skip to carriage tape channel 1 
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D 


Type of 
Detail 
Card 


Special 4 or 

7 position 

1401 Instruction 

(actual) 


Column Split 


: = Edit 

. = Load Edit Control Word 

M = Move Constant Data 

1 = Move and Suppress Zeros 

3 = Move Digit 

( = Move Zone 


^ ~ ^*''* DETAIL CARD DATA 
W = Move 

I — Move and Suppress Zeros 
[> = Move Digit 
f = Move Zone 


A = Add; S = Subtract 

@ = Multiply; % = Divide 

? = Zero Add; ! = Zero Subtract 

D = Move Digit; Y = Move Zone 

M = Move 

Z = Move and Suppress Zeros 


Ok 

% 
p 


After 
Print 


Sequence 
Number 


C = Char. 
Z = Zone 


c 
Z 


D 
Y 


— Move Digit 
= Move Zone 


Label 


Print 
Positions 


Punch 
Positions 


Data Card 
Columns 


Print 
Positions 


Punch 
Positions 


Data Card 
Columns 


Label 


e 
I 


Card 
Colt. 


O 
P 


A 


B 


1 ' 


From 


To > 


' From 


From 


To 


From 


To > 


*** 
t From 


To 


From 


To 


From 


To ' r From 


To 


From 


To 


S P 
S K 




1 


2 


3 5 


6 


7 


8 10 


11 13 


14 


15 17 


18 20 2 


122 24 


25 27 


28 30 


31 33 


34 36 3 


7 38 40 


41 43 


44 46 


47 49 


50 52 


53 5i 56157 59 


60 62 


63 65 


66 68 


69 70 71 


72 


77 


78 801 







- 


^ 
























1 1 


1 1 


1 1 




1 1 


















_ 




- 


- 


S 


— 


-^^!=f= 


— 


*aMJ4«| 


D 


y 


^1^17 


L 












1 1 i 


^I|I)|/1 


01/15- 


<j|/|y 




1 1 I 


= £>|d|f 


0\t\( 


o\(\i>- 


<?|/|«7 


1 1 




















r? 


2 





D 


y 


7 


i. 










1 1 












1 1 i 


- ^I'l-*- 


o\t\s 


6\X\i 


0\J.\^ 






















A 


3 





D 


/ 
Y 


6\0\q 


(L 












1 1 ' 


-t|C|^ 


«|3|6 


o\f\sr 




1 1 i 


E C\S\/ 


0\5\1 


0\3\<, 


0\^\S 
























4 





D 


•4 


o|o|7 


<L 






















1 1 '" 


«\fl|0i7 


6\Q\n 


0\^(, 


0\f\(o 






















9<^ 





D 


y 


0\C\J 


C 








y 


C\^\^ 


0\3\7 I 


-E\<^\l 


^l-flt 


o\S]S' 




1 1 / 


i^l^Bf- 


^|3|7 


^lYlf 


o\6-\9 




1 1 A^^\i: 


<)|3iy 




T\0\1 




^\PI 




Jk 


6 





D 




' 1 1 


























1 1 


1 1 


1 1 




1 1 






















7 





D 












1 1 


















1 1 


1 1 


1 1 


























8 





D 




1 1 




















1 1 






1 1 


1 1 


1 1 


























9 





D 




1 1 


























1 1 


1 1 


1 1 
































D 




1 1 




















1 1 






1 1 


1 1 


1 1 


























1 





D 




1 1 


























1 1 


1 1 


1 1 












1 1 














2 





D 




1 1 


























1 1 


1 1 


1 1 










1 1 
















3 





D 




1 1 


























1 1 


1 1 


1 1 


1 1 
























4 





D 




1 1 


























1 1 


1 1 


1 1 


























5 





D 




1 1 


























1 1 


1 1 


II 












1 1 














6 





D 




1 1 


























1 1 


1 1 


1 1 


























7 





D 




1 1 


























1 1 


1 1 


1 1 


























8 





D 




1 1 


























1 1 


1 1 


1 1 


























9 





D 




1 1 


























1 1 


1 1 


1 1 
































D 
































-LI. 
























5 




1 






^ 
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]( iZ'U^tti^^UJ:,...u^^^<f ^^ S^LA IBM 1401 DATA PROCESSING SYSTEM 

q^n J FARGO REPORT SPECIFICATIONS • Phase 2 



REPORT. 



FORM X24-6558 
Printed in U.S.A. 



7374I75I76 



PROGRAMMED BY 



PROGRAM IDENTIFICATION 
DATE /->-// ^ /^/ Page •^~ of_4_ 



TOTAL CONTROL CARDS - PHASE 2 | 


T 


> 

"5 



s 

Be- ( 
fore ' 

Print A 


< = Add 

= Subtract 
3) = Multiply L 
^ = Divide A 
A = Move 2 


= Load Edit Control Word 
A = Move Constant Data 
— Move and Suppress Zeros 


: = Edit 

tA - Move 

I — Move and Suppress Zeros 


Summary Punch 
Column Split 




Clear 
^ccum. 


c 

p 


c 

3 

a. 
P 


After 
Print 


E 





COMMENTS 


Sequence 
Number 


S P 
S K 


' 


Label 


Label 


Print 
Positions 


Label 


Print 
Positions 


Punch 
Positions 


D 
Y 


= Move Digit 
= Move Zone 


s 


Label 


S P 
S K 




, From 


To , 


f From 


From 


To , 


f From 


From 


To 


From 


To 


T 


From 


To 


To 




2 


3 4 


5 <■ 


7 9 


10 12 1 


3 14 16 


17 19 


20 22 2 


3 24 26 


27 29 


30 32 


33 35 


36 38 


39 


40 42 


43 45 


46 


47 49 


50 


51 


52 53 


54 


55 


56 




77 


78 80| 




/ 


S\K 


5 




II 




1 1 


1 I ^ 


^S\c\}f 


C>\%\0 


^|J^l7 




















1 








Skip to "Total Paid" line and move 
date to print area 


3 





1 







/ 


1 




1 1 


1 1 


■ 1 1 


1 1 


1 * 


I. ^\E\U 


a\x\^ 


0\S\3 


1 1 


1 1 
























Move and zero suppress vendor to 
print area 


3 





2 







1 


1 




1 1 


1 1 / 


, fICiA 


^IV^If 


i>\f\8 i 


ir\o\r 


^WIS^ 


d\$-\^ 


1 1 


1 1 












? 




1 








Edit "Total Paid" amount and 
print 


3 


^ 


3 









S\K 


Ll 


\ om 


c\K\s} 


1 1 




1 1 /* 


15KI2) 


o\x\o 


^W7 


1 1 


1 1 
















1 








Skip to check; add "1" to check #; 
move date to print area 


3 





4 









1 






1 1 


1 1 


1 1 


1 1 / 


L l/|f 1/Y 


0\A\J 


^1^1^ 




1 1 
















1 








Move and zero suppress vendor to 
print area 


3 





5 









1 




1 1 


1 1 


1 1 


|- 1 


1 1 * 


t C\I^\S( 


0\3\^~ 


OlSl^f 


1 1 


1 1 
















1 








Move and zero suppress check # to 
prmt area 


3 


o 


6 









1 




1 1 


! 1 I 


- a<^!J> 


o\f\^ 


a ISM- I 


z-no\T 


o\¥\S- 


a\f\s 


1 1 


1 1 












P 




Y 








Edit check total and print 


3 





7 









1 




1 1 


\ \ 


1 1 




1 1 >* 


AS\c\'^ 


1 1 


1 1 


c\o\i 


o\o\8 
















1 








Move date to punch area 


3 





8 









1 








1 1 


1 1 


1 1 ' 


"MA^IN 


1 1 


1 1 


o\o\i 


^\f\3 
















1 








Move vendor to punch area 


3 





9 









1 




1 1 


1 1 




j 1 


1 1 f^ 


^C\/(\N 


1 1 


1 1 


o\i\^ 


C\l\if 
















1 








Move check # to punch area 


3 














1 




1 1 


1 1 


I 1 


1 1 


1 1 '' 


1116IT 




1 1 


0\i\^ 


o\^\^ 


y 


0\f\6 


^ms 


s 


T\0\T 




P 


1 








Move check total to punch area; , 
remove sign; clear total and pimch 


3 


1 


1 









^1^ 


/ 


1 1 


1 1 


1 1 


1 1 


1 1 A 


1 /VlAlIf 


d\/\6 


^131,^ 


\ \ 


i 1 












P 












Space; move name to print area 
aiid print 


3 




2 









1 




1 1 


1 1 




1 1 


1 1 ^ 


f/||2>|i> 


dl(iO 


Oi3\f 


1 1 














P 




1 








Mpve address to print area and 
print 


3 




3 









1 




1 1 


! 1 


1 1 


1 1 


1 1 ^ 


^ciny 


Oil 16 


0\X\^ 




1 , 












P 




i 








Move city to print area and 
print 


3 




4 









1 




1 1 


1 1 


1 1 


■ t 1 


1 1 ' 


1 r\/^\L 


61/10 


o\3\/ 


1 1 


1 1 












P 




1 








Move trailer address to print area 
and print 


3 




5 









1 


h 


A <i\L\R 


T\R\L 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 
















■S\/< 


/ 






Clear trailer address and skip to 
channel 1 


3 




6 







A 


1 




1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 l. 


















1 






-)f 


LAST CARD RUNOUT 


3 




7 









1 




1 1 


1 1 


1 1 


, 1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 
















1 










3 




8 









1 




1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 
















1 










3 




9 









1 




1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 
















1 










3 


















1 1 


_L„i_ 


L.^ 


..J-i- 




1 1, 






1 1 


1 1 


























3 




1 






IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

IBM 1401 PROGRAM CHART 



FORM X24-6437 
PRINTED IN U.S.A. 



Program; 



Patch Subroutine for Remittance Statement and Voucher Check PAGE 6 of 6 













'rogrammer: 


F. Johnson Q^^g. 


12/10/61 




Step 
No. 


Inst. 
Address 


instruction 


Remarks 


Effective No. 
of Characters 



P 


A/I 


B 


d 


dj j 


d! 1 


Inst. 


Data 


Total 


/ 


(2201) 

KOI 


8 


^1/ |0 


@j j 




If on channel 12, branch to KIO 


s 




^ 


A. 


KO(o 


e 


7|^|/ 






If not on channel 12, branch back to next instruction 
in Phase 3 


¥ 




7 


3 


K(0 


c 


0' o\ 5" 


3|3|7 




Compare Vendor Number in columns 1-5 of all cards with 
Vendor Number stored in Location 333-337 


7 




/6 


i- 


KI7 


B 


S\ o\ 


/| 1 




If unequal, branch back to the first instruction in Phase 2 


5^ 




^f 


s 


K^^ 


F 


6j j 






If equal, skip to carriage tape channel 6 


JL 




^3 


6 


K<x^ 


f\ 


/Cj^|7 


3| i^\8 




Add "1" to Check Number 


7 




30 


7 


K3/ 


L 


Jj?!/ 


f \o\S 




Load Date into punch positions 1-8 


7 




37 


S 


K3S 


M 


s\^\c> 


/!/ \3 




Move Vendor Number stored in Location 376 into pimch 
positions 9-13 


7 




H 


1 


K'^s- 


M 


3\f\g 


/!/ 1^ 




Move Check Number into punch positions 14-18 


7 




5"/ 


fo 


K^^ 


fM 


/.jo 6 


/Ul5- 




Move V-O-I-D into punch positions 19-25 


7 




5^ 


11 


/<6"7 


¥ 








Punch summary card for voided check 


/ 




^T 


fX 


K60 


L 


3 7|/ 


<ip|7 




Load Date into print positions 20-27 


7 




C6> 


13 


/<^7 


Z 


3\7\C> 


aJ3l3 




Move and Zero Suppress Vendor into print positions 
29-33 


7 




7^ 


^i- 


xyy 


2 


3\S\8 


aj3l<? 




Move and Zero Suppress Check Number into print posi- 
tions 35-39 


7 




5^0 


15 


KSI 


M 


L\oU 


oijiT 7 




Move V-O-I-D into print positions 48-57 


7 




^7 


/6 


K8S 


X 








Print voided check 


/ 




93 


n 


KS^'f 


/ 


cAJ^j? 






Clear print area 


^ 




f^ 


It 


K^3 


P 


/ j 1 






Skip to carriage tape channel 1 


JL 




ii 


n 


f<9S 


6 


71-^1^ 


1 1 




Branch back to Location 731. This is the address of the 
first instruction in Phase 3 that follows BKOl 


f 




ie 


X6 


K<f<f 


1 








Constant "1" to increase Check Number for voidecj chebk^ 




/ 


f^f 


a/ 


(2306) 


V 


- |o|- 


r j-|z> 




Constant V-O-I-D to void overflow checks 




7 


/06 




















?S' 


8 


/oU 




NOTE: The following addresses of the various instructions in the patch subroutine were 
determined from the storage printout after testing the main FARGO program: 
Address 
KOI = Starting location (2201) of patch subroutine 

337 = Location of low-order position of Vendor Number for compare piuposes 
371 = Statement and Check Date (label SCD) 
376 = Vendor Number (label VEN) 
388 = Check Number (label CKN) 

500 = Location of first instruction in Phase 2 after control break 
731 = Location of instruction iti Phase 3 immediately following BKOl 


































































1 I 1 1 1 1 1 1 1 



Figure 23-G. Patch Subroutine Instructions 
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PATCH SUBROUTINE CARD FORMAT 









11 


11111111 




6666666 


6667777 


7777 


778 


Card Colvimns ^ 


123^^ 


567 


8901 


23456789 




0123U56 


7890123 


4567 


890 


Leader Cards 


















#1 


^008 


012 


1001 














#2 


^060 


067 


1001 














#3 


^074 


078 


1060 


_ 




— 


— 


- 


- 


Instruction Cards 




















Step 1 


L019 


KOI 


1060 


BK10@ 




AO07080 


MO8OOO7 


BOOl 


007 


Step 2 


L019 


KO6 


1060 


B731 












Step 3 


L019 


KIO 


1060 


COO5337 












Step k 


L019 


KI7 


1060 


B500/ 












Step 5 


L019 


K22 


1060 


¥6 












Step 6 


L019 


K2k 


1060 


AK99388 












Step 7 


L019 


K31 


1060 


L371108 












Step 8 


L019 


K38 


1060 


M376113 












Step 9 


L019 


Kk3 


1060 


M388118 












Step 10 


L019 


K52 


1060 


MLO6125 












Step 11 


L019 


K59 


1060 


5 












Step 12 


L019 


K60 


1060 


L37I227 












Step 13 


L019 


K67 


1060 


Z376233 












Step Ik 


L019 


K7^ 


1060 


Z388239 












Step 15 


L019 


K81 


1060 


MLO6257 












Step l6 


L019 


K88 


1060 


2 












Step 17 


L019 


K89 


1060 


/299 












Step 18 


L019 


K93 


1060 


Fl 












Step 19 


L019 


K95 


1060 


B731 




AOO7080 


MO8OOO7 


BOOl 


007 


Constants Cards 




















Step 20 


LOOl 


K99 


1060 


1 




A00l*-080 


MO8OOO4 


BOOl 


Oil 


Step 21 


L007 


LO6 


1060 


V-O-I-D 




A00l^080 


MO8OOO4 


BOOl 


oil 


Clear & Branch Card 












/C 14080 









NOTES: Card columns 1-4, S-11, and 60-80 are prepunched as recommended in the 
IBM 1401 Reference Manual, Form A24-1403, under PROGRAM LOADING 
ROUTINE. 

Underscored positions indicate position of word marks set by leader cards 1, 2 and 3. 

Card columns 5-7 and 12-18 are key punched from the IBM 1401 Program Chart 
(Figure 23-G). 

After loading the patch subroutine the clear and branch card clears read-in area 1-80 
and branches to location C14 (3314). This is the address of the first instruction in 
the permanent FARGO program. 

Figure 23-H. Patch Subroutine Card Format 
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o 

^ 1 






General Manufacturing Company — Endicott, N. Y. 




We enclose 
check in fuU 
payment of 


Invoice 


Our Ref. 
Number 


Invoice or 
Claim Amount 


Discount or 
Allowance 


1 

o 


AMOUNT 


1 o 


Mo. 


Day 
















o 1 


Items listed 
















1 o 








15 


3U56 


550.75 




1 


550.75 










15 


3U56 




11.02 


7, 


11.02- 




O ' 


CODES: 


1 1 


18 


3U90 


11.02 




2 


11.02 


! ^ 






1 1 


20 


3510 




11.02 


U 


11.02- 








1 1 


30 


U127 


39,U60.27 




1 


39,U60.27 




O 1 


3. E>iscounts 


12 


06 


U273 


1,000.00 




1 


1,000.00 


i O 




4. Allowances 


12 


06 


U273 




20.00 


3 


20.00- 








12 


08 


U280 




10.00 


U 


10.00- 




o 1 

o i 


















1 O 


DETACH CHEC 


.K 






TOTAL PAID — ^ 




BEFORE DEPOSITING 


Date 


Vendor 


1 O 

1 


o 1 


-- ,n 






! o 




GENERAL MANUFACTURING COMPANY 1 






Endlcott, N.Y, | 




O 1 




GENERAL BANK 1452 1 
AND TRUST CO. 320 | 
ENDICOTT, N.Y. 1 


1 o 


O ' 






I o 






PAY TO THE Date Vendor Check No. 

ORDER OF 12/15/61 815 19876 


Amount if 




V-O-I-D 1 


o 1 




GENERAL MANUFACTURING COMPANY | 


i ^ 


o ; 

o 








1 o 


Treasurer | 




gOSSSgg008@^0888g88S8S80SgSOO©S8888000SS880g088S8S8gg8gSggSg8Sgg 


_ _ . _ _J_._J 


O ! 




General Manufacturing Company — Endicott, N. Y. 




We enclose 


Invoice 


Oui Ref. 


Invoice or 


Discount or 


^ 


AMOUNT 


1 o 




check in full 
payment of 


Mo. 


Day 


Nimiber 


Claim Amount 


Allowance 


o 
U 


I 


12 


09 


U285 


9,030.86 




1 


9,030.86 


o I 


items listed 


12 


11 


5117 


500.00 




1 


500.00 


1 ^ 






12 


12 


5328 




150.86 


U 


150.86- 








12 


13 


5U16 


123. US 




1 


123. US 




o ; 


CODES: 

1. Invoices 

2. Claims 


12 


13 


5U17 


876.55 




1 


876.55 


! o 


o 1 


3. Discounts 

4. Allowances 
















\ O 


o 1 
o 


















1 O 


DETACH CHEC 


K 


12/15/61 


815 


TOTAL PAID — ^ $51 , 350 .00 




BEFORE DEPOSITING 


Date 


Vendor 


i O 

1 


o 1 




GENERAL MANUFACTURING COMPANY | 
Endicott, N.Y. | 


i ^ 


O 1 




GENERAL BANK 1452 1 
AND TRUST CO. 320 ¥ 
ENDICOTT, N.Y. 9 


1 o 


o ; 






! o 






PAY TO THE Date Vendor Check No, 

ORDER OF 12/15/61 815 19877 


Amount ip 




$51,350.00 1 


O 1 




INTERNATIONAL BUSINESS f 

MACHINES CORPORATION general manufacturing company 1 


1 o 


o I 




NORTH ST. 8 


' o 






ENDICOTT, NEW YORK 


KS 




£ 


o 




Treasurer £ 


i O 




SassossssssssssssssosQsssssassssssssiQQQQQsasQQaQsassssaQsssssseia 







Figure 23-J. Remittance Statement and Voucher Check 
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O \s 

o ii 






General Manufacturing Company — Endicott, K Y. 






Ve enclose 
.heck in fuU 
>ayment of 
terns listed 


Invoice 


Our Ref 

Number 


Invoice or 
Claim Amoimt 


Discount or 
Allowance 


o 

u 


AMOUNT 


"1 o 
! o 


Mo. 


Day 


11 


06 


3219 


3U7.09 




1 


3U7.09 


O jc 


:ODES: 
















1 o 


1 1 


. Invoices 


















O 13 


• Claims 
. Discounts 
















I o 


' 4 


[. Allowances 


















o 1 

O |b 


















1 o 


)ETACH CHEC 


,K 12/15/61 


1875 


TOTAL PAID — •• 


$3U7.09 




EFORE DEPOSITING 


Date 


Vendor 


i o 

1 


o 1 


i GENERAL MANUFACTURING COMPANY | 


!i o 




1 Endicott, N.Y. 


1 


1 ' 


c 1 


1 GENERAL BANK 


1452 1 


ll o 




1 AND TRUST CO. 


320 1 






1 ENDICOTT, N.Y. 


1 


1 1 


o W 


1 PAY TO THE 




1 [ 


1 


j! o 


1 Date 1 Vendor | Check No. 


Amount % 


1 ORDER OF 1 12/15/611 18751 19878] 


$3U7.09i 


O ;i 


1 SUTCAN, INC. 




i ^ 


o ; 

o i 


1 2710 HELEN ST. 

1 ENDICOTT, NEW YORK 


GENERAL MANUFACTURING COMPANY 1 


i O 




Treasurer C 




!__"___ 


O iv 

' c 

o ll 




General Manufacturing Company — Endicott, N. Y. 






/e enclose 
heck in full 
ayment of 
tems listed 


Invoice 


Our Ref. 

Number 


Invoice or 
Claim Amount 


Discount or 
Allowance 




O 


AMOUNT 


1 o 
; o 


Mo. 


Day 


n 


lU 


3U28 


750.33 




1 


750.33 






11 


lU 


3U28 




37.52 


3 


37.52- 




o ;c 


ODES: 
















: o 


1 1 


. Invoices 


















1.2 
O '3 


. Claims 
. Discounts 
















I o 


' 4 


. Allowances 
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NOTES: 



Entry 040 — ORG 1445 specifies the location of NOOO (detail No-Op) in the FARGO generated program. 

Entry (BO B DPATCH will be converted during assembly to an actual machine language instruction (in this case BMOO) and loaded over NOOO in 1445-1448 

Entry 060 ~ ORG 1201 specifies the location of J^SSSSSS (total No-Op) in the FARGO generated program. 

Entry 070 — B TPATCH will be converted during assembly to an actual machine language instruction and 

Entry 090 — In this example, the patch area begins in location 2400 converted to MOO dviring assembly. 

back to the proper point (B1449 and B 1208) in the FARGO generated program. 

Entry 200 — The END card must branch back to 3314 to the first card read instruction of FARGO. 



loaded over N888 followed by three blanks (entry 080). 
The last instruction in each subroutine must branch 
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